home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / DEMO_VGA / UTILEGA1.LZH / PALLETTE.ASM < prev    next >
Assembly Source File  |  1986-07-07  |  640b  |  52 lines
  1.     page    66,132
  2. code    segment    para public 'code'
  3.     org    100h
  4.     assume    cs:code,ds:code,es:code,ss:code
  5. start    proc    far
  6.     mov    bx,0
  7.  
  8. loop:    mov    ax,1000h
  9.     int    10h
  10.     mov    ah,0
  11.     int    16h
  12.     cmp    al,'r'
  13.     jz    red
  14.     cmp    al,'g'
  15.     jz    green
  16.     cmp    al,'b'
  17.     jz    blue
  18.  
  19.     sub    al,'0'
  20.     jb    quit
  21.     cmp    al,16
  22.     jae    quit
  23.  
  24.     xor    bh,bh
  25.     mov    bl,al
  26.     jmp    short loop
  27.  
  28. red:    xor    bh,20h
  29.     test    bh,20h
  30.     jnz    loop
  31.     xor    bh,4
  32.     jmp    loop
  33.  
  34. green:    xor    bh,10h
  35.     test    bh,10h
  36.     jnz    loop
  37.     xor    bh,2
  38.     jmp    loop
  39.  
  40. blue:    xor    bh,08h
  41.     test    bh,08h
  42.     jnz    loop
  43.     xor    bh,1
  44.     jmp    loop
  45.  
  46. quit:    int    20h
  47.  
  48. start    endp
  49. code    ends
  50.     end start
  51.  
  52.